﻿<Serializable()> _
Public Class EcliConyCoop

#Region "           Atributos                       "
    Private _idProyecto As Int32
    Private _idEtapa As Int32
    Private _idSeparacionVenta As Int32
    Private _idCliente As Int32
    Private _Ecliente As Ecliente
    Private _idTpoCiente As Int32
#End Region

#Region "           Propiedades                     "
    Public Property idProyecto() As Int32
        Get
            Return _idProyecto
        End Get
        Set(ByVal value As Int32)
            _idProyecto = value
        End Set
    End Property
    Public Property idEtapa() As Int32
        Get
            Return _idEtapa
        End Get
        Set(ByVal value As Int32)
            _idEtapa = value
        End Set
    End Property
    Public Property idSeparacionVenta() As Int32
        Get
            Return _idSeparacionVenta
        End Get
        Set(ByVal value As Int32)
            _idSeparacionVenta = value
        End Set
    End Property
    Public Property idCliente() As Int32
        Get
            Return _idCliente
        End Get
        Set(ByVal value As Int32)
            _idCliente = value
        End Set
    End Property
    Public Property Ecliente() As Ecliente
        Get
            Return _Ecliente
        End Get
        Set(ByVal value As Ecliente)
            _Ecliente = value
        End Set
    End Property
    Public Property idTpoCliente() As Int32
        Get
            Return _idTpoCiente
        End Get
        Set(ByVal value As Int32)
            _idTpoCiente = value
        End Set
    End Property
#End Region

#Region "           Propiedades Avanzadas           "

#End Region

#Region "           Contructores                    "
    Public Sub New()

    End Sub
    Public Sub New(ByVal idCliente As Int32, ByVal idTpoDcmto As Int32, ByVal nroDocumento As String, ByVal edad As Int32, _
                   ByVal nombre As String, ByVal apePaterno As String, ByVal apeMaterno As String, _
                   ByVal fchNacimineto As String, ByVal idEstCivil As Int32, ByVal nroDependientes As Int32, _
                   ByVal sexo As Int32, ByVal idEstudio As Int32, ByVal nacionalidad As String, ByVal telefonoFijo As String, _
                   ByVal telefonoCelular As String, ByVal email As String, ByVal idUbigeo As String, _
                   ByVal urbanizacion As String, ByVal direccion As String, ByVal separacionBienes As Int32, _
                   ByVal nroPartida As String, ByVal idProfesion As Int32, ByVal idOcupacion As Int32, _
                   ByVal ruc As String, ByVal razonSocialLaboral As String, ByVal giro As String, _
                   ByVal idUbigeoLaboral As String, ByVal urbanizacionLaboral As String, ByVal direccionLaboral As String, _
                   ByVal telefonoLaboral As String, ByVal telefonoLaboral2 As String, ByVal puesto As String, _
                   ByVal antiguedadLaboral As Int32, ByVal ingresos As String, ByVal estado As String, ByVal idUsuario As Int32)
        _Ecliente = New Ecliente
        With _Ecliente
            .EtpoDcmto = New EtpoDcmto
            .EtpoDcmto.idTpoDcmto = idTpoDcmto
            .nroDocumento = nroDocumento
            .edad = edad
            .nombre = nombre
            .apePaterno = apePaterno
            .apeMaterno = apeMaterno
            .fchNacimineto = fchNacimineto
            .EestadoCivil = New EestadoCivil
            .EestadoCivil.idEstCivil = idEstCivil
            .nroDependientes = nroDependientes
            .sexo = sexo
            .Eestudio = New Eestudio
            .Eestudio.idEstudio = idEstudio
            .nacionalidad = nacionalidad
            .telefonoFijo = telefonoFijo
            .telefonoCelular = telefonoCelular
            .email = email
            .Eubigeo = New Eubigeo(idUbigeo, "", "", "")
            '.Eubigeo.idUbigeo = idUbigeo
            .urbanizacion = urbanizacion
            .direccion = direccion
            .separacionBienes = separacionBienes
            .nroPartida = nroPartida
            .Eprofesion = New Eprofesion()
            .Eprofesion.idProfesion = idProfesion
            .Eocupacion = New Eocupacion()
            .Eocupacion.idOcupacion = idOcupacion
            .ruc = ruc
            .razonSocialLaboral = razonSocialLaboral
            .giro = giro
            .EubigeoLaboral = New Eubigeo(idUbigeoLaboral, "", "", "")
            '.EubigeoLaboral.idUbigeo = idUbigeoLaboral
            .urbanizacionLaboral = urbanizacionLaboral
            .direccionLaboral = direccionLaboral
            .telefonoLaboral = telefonoLaboral
            .telefonoLaboral2 = telefonoLaboral2
            .puesto = puesto
            .antiguedadLaboral = antiguedadLaboral
            .ingresos = ingresos
            .estado = estado
            .idUsuario = idUsuario
        End With        
    End Sub

    Public Sub New(ByVal idCliente As Int32, ByVal idTpoDcmto As Int32, ByVal nroDocumento As String, ByVal edad As Int32, _
                       ByVal nombre As String, ByVal apePaterno As String, ByVal apeMaterno As String, _
                       ByVal fchNacimineto As String, ByVal idEstCivil As Int32, ByVal nroDependientes As Int32, _
                       ByVal sexo As Int32, ByVal idEstudio As Int32, ByVal nacionalidad As String, ByVal telefonoFijo As String, _
                       ByVal telefonoCelular As String, ByVal email As String, ByVal idUbigeo As String, _
                       ByVal urbanizacion As String, ByVal direccion As String, ByVal separacionBienes As Int32, _
                       ByVal nroPartida As String, ByVal idProfesion As Int32, ByVal idOcupacion As Int32, _
                       ByVal ruc As String, ByVal razonSocialLaboral As String, ByVal giro As String, _
                       ByVal idUbigeoLaboral As String, ByVal urbanizacionLaboral As String, ByVal direccionLaboral As String, _
                       ByVal telefonoLaboral As String, ByVal telefonoLaboral2 As String, ByVal puesto As String, _
                       ByVal antiguedadLaboral As Int32, ByVal ingresos As String, ByVal OtroDocumentoCony As String)
        _Ecliente = New Ecliente
        With _Ecliente
            .EtpoDcmto = New EtpoDcmto
            .EtpoDcmto.idTpoDcmto = idTpoDcmto
            .nroDocumento = nroDocumento
            .edad = edad
            .nombre = nombre
            .apePaterno = apePaterno
            .apeMaterno = apeMaterno
            .fchNacimineto = fchNacimineto
            .EestadoCivil = New EestadoCivil
            .EestadoCivil.idEstCivil = idEstCivil
            .nroDependientes = nroDependientes
            .sexo = sexo
            .Eestudio = New Eestudio
            .Eestudio.idEstudio = idEstudio
            .nacionalidad = nacionalidad
            .telefonoFijo = telefonoFijo
            .telefonoCelular = telefonoCelular
            .email = email
            .Eubigeo = New Eubigeo(idUbigeo, "", "", "")
            '.Eubigeo.idUbigeo = idUbigeo
            .urbanizacion = urbanizacion
            .direccion = direccion
            .separacionBienes = separacionBienes
            .nroPartida = nroPartida
            .Eprofesion = New Eprofesion()
            .Eprofesion.idProfesion = idProfesion
            .Eocupacion = New Eocupacion()
            .Eocupacion.idOcupacion = idOcupacion
            .ruc = ruc
            .razonSocialLaboral = razonSocialLaboral
            .giro = giro
            .EubigeoLaboral = New Eubigeo(idUbigeoLaboral, "", "", "")
            '.EubigeoLaboral.idUbigeo = idUbigeoLaboral
            .urbanizacionLaboral = urbanizacionLaboral
            .direccionLaboral = direccionLaboral
            .telefonoLaboral = telefonoLaboral
            .telefonoLaboral2 = telefonoLaboral2
            .puesto = puesto
            .antiguedadLaboral = antiguedadLaboral
            .ingresos = ingresos
            .OtroDocumento = OtroDocumentoCony
        End With
    End Sub
#End Region
End Class
